home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat94 / rexx / bgsn.rexx < prev    next >
OS/2 REXX Batch file  |  1995-01-29  |  1KB  |  53 lines
  1. /*-------------------------------------*/
  2. /* BGSN.rexx v1.1        (c) 1995 Ldfa */
  3. /*                                     */
  4. /* Script de connection sur le serveur */
  5. /*     BGSN en RTC pour AmiTEL 2.1     */
  6. /*                                     */
  7. /*-------------------------------------*/
  8.  
  9. Envoi        = '13 41'x
  10. Retour        = '13 42'x
  11. Repetition    = '13 43'x
  12. Guide        = '13 44'x
  13. Annulation    = '13 45'x
  14. Sommaire    = '13 46'x
  15. Correction    = '13 47'x
  16. Suite        = '13 48'x
  17.  
  18. Login  = "Mon pseudo"            /* Inscrire ici votre pseudonyme */
  19. Passwd = "Mon mot de passe"        /* et votre mot de passe         */
  20.  
  21. address AMITEL_REXX            /* Nom du Port ARexx d'AmiTEL */
  22.  
  23. options results
  24.  
  25. TIMEOUT 60                /* Temps d'attente maximum */
  26.  
  27. WAIT "SUITE"                /* Attend 'SUITE' */
  28. if RC ~= 0 then                /* Si temps d'attente dépassé */
  29.    do
  30.       REQINFO "Le serveur ne répond pas!"    /* Affiche Resquester */
  31.       exit                    /* Fin du programme */
  32.    end
  33.  
  34. SEND Suite                /* Envoi SUITE */
  35.  
  36. WAIT "Ton Pseudo"            /* Attend 'Ton Pseudo' */
  37. if RC ~= 0 then                /* Si temps d'attente dépassé */
  38.    do
  39.       REQINFO "Le serveur ne répond pas!"    /* Affiche Resquester */
  40.       exit                    /* Fin du programme */
  41.    end
  42.  
  43. SEND Login || Envoi            /* Envoi pseudonyme */
  44.  
  45. WAIT "Ton Code"                /* Attend 'Ton Code' */
  46. if RC ~= 0 then                /* Si temps d'attente dépassé */
  47.    do
  48.       REQINFO "Le serveur ne répond pas!"    /* Affiche Resquester */
  49.       exit                    /* Fin du programme */
  50.    end
  51.  
  52. SEND Passwd || Envoi            /* Envoi mot de passe */
  53.